LINE: 16;3;What do you know about penguins?; ;IFRF 2=1
LACT: 16;3;RESP R,16,When I explored the south-pole last year I caught some.
LACT: 16;3;SETRF 3=1;DSET 16,N3,+4;EXIT
LINE: 16;4;How do you catch penguins?; ;IFRF 3=1
LACT: 16;4;RESP R,16,I have a special penguin trap.;SETRF 3=2;DSET 16,N4,+5;EXIT
LINE: 16;5;Could I have your penguin trap, please?; ;IFRF 3>=2
LACT: 16;5;RESP R,16,I'll to trade it for some warm boots.;SETRF 3=3
LACT: 16;5;IFCARR 37;DSET 16,N5;EDLG;SETRF 1=1;SAY I have some sealskin boots here.;HANDLE HIGH;PUT 37,U,0;W 24;HANDLE -1;RESP R,16,Ok, thanks. Here, you have this penguin trap.;HANDLE HIGH;PICK 36;W 24;HANDLE -1;EXIT
LACT: 16;5;DSET 16,-5;EXIT
LINE: 16;6;Goodbye.; ;
LACT: 16;6;RESP R,16,Goodbye, miss.;EDLG;EXIT
/* ACTION: verb_no;{cond|comm} (This statement is optional)
/*
/* Action 0 - Exit
ACTION: 0;IFOBJ 1;MEXIT;GOTO 29,2
/* Action 1 - Give
ACTION: 1;IFOBJ 37;IFOBJ2 34;IFRF 3=3;SETRF 1=1;MOBJ 34;SAY I have some sealskin boots here.;HANDLE HIGH;PUT 37,U,0;W 24;HANDLE -1;RESP R,16,Ok, thanks. Here, you have this penguin trap.;HANDLE HIGH;PICK 36;W 24;HANDLE -1;EXIT